home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / UserStartup < prev   
Encoding:
Text File  |  1987-03-09  |  1.3 KB  |  47 lines  |  [TEXT/MPS ]
  1. #    UserStartUp - MPW Shell UserStartUp File
  2. #
  3. #    Copyright Apple Computer, Inc. 1985, 1986
  4. #    All Rights Reserved.
  5.  
  6. #    This file (UserStartUp) is executed from the StartUp file, and can be used
  7. #    to override definitions made in StartUp, or to define additional variables,
  8. #    exports, and aliases.  UserStartUp may also be used to define menu items,
  9. #    open windows, etc.    The file should be located in the directory containing
  10. #    the MPW Shell.
  11.  
  12. alias cd directory
  13. alias clone duplicate
  14. set ask "request 'Structure Level:' "
  15. export ask
  16. if "`request -d Pascal 'Pascal or C:'`" =~ /[Pp]as≈/
  17.     "{MPW}macros:Pas_Macros"
  18. else
  19.     "{MPW}macros:c_macros"
  20. End
  21.  
  22. set exit 0    #so confirm won't kill things on 'no'
  23. set scr "{MPW}scratch"; export scr
  24. open "{scr}"
  25. confirm 'Need the Rez menu?'
  26. if {status} == 0
  27.     begin
  28.     # definitions to make nesting simpler...
  29.     set br "request 'BoundsRect? (t,l,b,r)'" ; export br
  30.     set tit "request 'Title?'"; export tit
  31.     set cid "request 'ID?'"; export cid
  32.     set st "request 'String?'"; export st
  33.     "{MPW}macros:rez_macros"
  34.     end
  35. end
  36.  
  37. set gloss {MPW}glossary; export gloss
  38. open "{gloss}"
  39. "{MPW}macros:nifties"
  40.  
  41. set PasMatOpts "-a -k -l -n -r -@"
  42. export PasMatOpts
  43.  
  44. Addmenu Nifties 'Formatted Hardcopy/9' ∂
  45. 'Pasmat "{active}" | Print -f Monaco -h -s 9 -hf Times -hs 12 -title "{active}"'
  46.  
  47.